home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / OctamedSS1.03c.lha / Soundstudio / Rexx / omed.lha / rexx / RotateTrack.omed < prev    next >
Text File  |  1995-03-29  |  304b  |  17 lines
  1. /* RotateTrack.omed */
  2.  
  3. address OCTAMED_REXX
  4.  
  5. 'op_update off'
  6. 'ed_getnumlines var line'
  7. 'ed_getcurrtrack var track'
  8. 'ed_getcurrline var currline'
  9.  
  10. 'rn_setrange' track line-1 track line-1
  11. 'rn_copy range'
  12. 'ed_advanceline fkey 6'
  13. 'ed_insertemptynote'
  14. 'rn_paste range'
  15. 'ed_goto line' currline
  16. 'op_update on'
  17.